2,749
社区成员
发帖
与我相关
我的任务
分享If !Empty(Thisform.text1.Value)
Thisform.grid1.RecordSource=Null
Thisform.grid1.ColumnCount=-1
If Thisform.optiongroup1.Value=1
Select * Into Cursor t1 From 表1 Where 字段名=Thisform.text1.Value && 查询表1 如果字段名为字符型,条件'='前后要加ALLTRIM() Else
Select * Into Cursor t1 From 表2 Where 字段名=Thisform.text1.Value && 查询表2 如果字段名为字符型,条件'='前后要加ALLTRIM() Endif
Thisform.grid1.RecordSource='t1'
Thisform.grid1.Refresh
EndifIf !Empty(Thisform.text1.Value)
Thisform.grid1.RecordSource=Null
Thisform.grid1.ColumnCount=-1
If Thisform.optiongroup1.Value=1
Select * Into Cursor t1 From 表1 Where 字段名=Thisform.text1.Value && 查询表1
Else
Select * Into Cursor t1 From 表2 Where 字段名=Thisform.text1.Value && 查询表2
Endif
Thisform.grid1.RecordSource='t1'
Thisform.grid1.Refresh
Endif