这个意思哈?
Dim jxtest As WinForm.Form = Forms("金相test")
If jxtest.Opened=False Then
Forms("金相test").open()
End If
Dim rgd As WinForm.RecordGrid = Forms("金相test").Controls("RecordGrid1")
rgd.Table=Tables("首页")
rgd.Build
''临时表保存数据
Dim q As new QueryBuilder
q.TableName = "金相临时_详细"
q.ConnectionName=_strBooks
q.SelectString="exec show_mftf_detal '" & Tables("金相详细_Table1").Current("记录号") & "','mc_tf_jxydjy','mc_mf_jxydjy'"
q.Build
''设置列高
Dim i As Integer
i=Tables("金相临时_详细").Cols.Count
Vars("_int_tbcount")=i
Dim j As Integer
For j=0 To i-1
Tables("金相临时_详细").Cols(j).RecordRowHeight=2
Next
''MessageBox.Show(Tables("金相临时_详细").Rows(0)("记录号"))
''记录窗口绑定临时表
Tables("金相临时_详细").AllowEdit=False
rgd.Table=Tables("金相临时_详细")
rgd.Build