743
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
rogery 2003-09-20
- 打赏
- 举报
runsoft(清风) 历害!
近来你好风光………
近来你好风光………
klbt 2003-09-20
- 打赏
- 举报
同意runsoft(清风) 。
xisat 2003-09-20
- 打赏
- 举报
^_^.
runsoft 2003-09-20
- 打赏
- 举报
reference datawindow dw_x
gstr_pass_morekey lgstr_1[] //结构，包含PK
//Function: g_f_get_primarykey
integer i
string szColumn[],tempszColumn,szType[]
integer j
j =1
For i = 1 to integer(dw_x.Object.DataWindow.Column.Count)
tempszColumn = dw_x.describe("#"+string(i)+".name")
If upper(dw_x.Describe(tempszColumn+".Key")) = "YES" Then
//字段名称
szColumn[j] = tempszColumn
//字段类型
szType[j] = dw_x.describe("#"+string(i)+".coltype")
//传递倒结构里面中去
lgstr_1[j].columnname = szColumn[j]
lgstr_1[j].columntype = szType[j]
j = j + 1
End If
next
gstr_pass_morekey lgstr_1[] //结构，包含PK
//Function: g_f_get_primarykey
integer i
string szColumn[],tempszColumn,szType[]
integer j
j =1
For i = 1 to integer(dw_x.Object.DataWindow.Column.Count)
tempszColumn = dw_x.describe("#"+string(i)+".name")
If upper(dw_x.Describe(tempszColumn+".Key")) = "YES" Then
//字段名称
szColumn[j] = tempszColumn
//字段类型
szType[j] = dw_x.describe("#"+string(i)+".coltype")
//传递倒结构里面中去
lgstr_1[j].columnname = szColumn[j]
lgstr_1[j].columntype = szType[j]
j = j + 1
End If
next
