X =
Visible = true Enabled = true TitleBar = true Title =
ControlMenu = true Border = true WindowType = response! WindowState = normal!
BackColor =
Boolean ib_changed
Long MaxEditRow =
String sWhere
DataWindow dw_result
pfc_n_cst_string inv_string
string sSyntax
注釋
功能
功能
integer i
string tmp
str_result_column lstr_
//結構str_result_column的成員adw_result指查詢結果所產生作用的dw
// 成員adw_column指在本窗口查詢條件所要顯示的dw
lstr_
dw_result = lstr_
dw_detail = lstr_
if isnull(dw_result) or not isvalid(dw_result) then return
if isnull(lstr_
window act_w
act_w=MainWindow
x = act_w
y = act_w
width = act_w
cb_exec
cb_exit
dw_where
dw_where
//
dw_column
wf_setcolumn(lstr_
//orisql = dw_result
orisql = dw_result
oldsql = lower(orisql)
For i =
dw_where
Next
dw_where
dw_where
dw_where
cb_exec
datawindowchild dwc
dw_where
dwc
dwc
For i =
tmp = dw_column
row = dwc
dwc
Next
//將用戶上次所輸入的查詢條件從文件sIniFile的WhereClause
//本次啟動時置為初始查詢條件
window w_parent
if dw_result
w_parent = dw_result
is_title = w_parent
else
is_title = dw_result
end if
ib_changed = True
row =
tmp =
is_title = gnv_app
For i =
RegistryGet(is_title
//tmp = ProfileString(sinifile
if tmp <>
//SetProfileString(sinifile
RegistrySet(is_title
row ++
dw_where
dw_where
dw_where
dw_where
dw_where
dw_where
end if
Next
MaxEditRow = row // MaxEditRow 為dw_where中當前已編輯過的最大行的行號
If MaxEditRow =
From:http://tw.wingwit.com/Article/program/SQL/201311/16310.html