X =
TabOrder =
BackColor =
X =
TabOrder =
Cancel = true
功能
Close(parent)
X =
TabOrder =
Default = true
功能
注釋
X =
TabOrder =
Border = true LiveScroll = true BorderStyle = stylebox
X =
TabOrder =
VScrollBar = true Border = true BorderStyle = stylelowered!
功能
功能
string colname
long currow
ib_changed = true
cb_exec
currow = GetRow()
If MaxEditRow < Currow Then MaxEditRow = currow
// MaxEditRow 為當前已編輯過的最大行的行號
colname = GetColumnName()
colvalue = GetItemString(currow
Choose Case dwo
Case
Object
Case Else
End Choose
//設置當前行的operator的初始值為
//設置上一行的logical的初始值為
if colname =
if colvalue =
SetItem(currow
if currow >=
colvalue = GetItemString(currow
logvalue = GetItemString(currow
if colvalue <>
SetItem(currow
end if
end if
end if
end if
//檢查並設置左括號
long ll
colvalue = GetText()
if colname =
if colvalue <>
ll = len(colvalue)
colvalue =
For i =
colvalue +=
Next
SetItem(currow
this
Return
end if
end if
AcceptText()
功能
注釋
(
Visible = true Enabled = true
MenuItem = m_value
Visible = true Enabled = true
long ll_pos
String sSyntax
datawindow dwp
dwp = Message
sSyntax = Message
if sSyntax =
beep(
return
end if
OpenWithParm(w_paste
ls_parm = Message
if ls_parm <>
ll_pos = Pos ( ls_parm
If ll_pos =
ls_data = ls_parm
ls_disp = ls_parm
Else
ls_data = Left ( ls_parm
ls_disp = Mid ( ls_parm
End If
dwp
dwp
dwp
end if
Visible = true Enabled = true
datawindow dwp
dwp = Message
dwp
dwp
End of Script
MenuItem = m_return
Visible = true Enabled = true
From:http://tw.wingwit.com/Article/program/SQL/201311/16226.html