专家坐堂-[求助]Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

forms("附属信息").Text= _cdckxz & "--" & Tables("基本信息").current("姓名") & "--" & Tables("基本信息").Current("档案编号")

Dim tblUser As Table = e.Form.Controls("Table1").Table

Dim strSQL As String="s elect * f rom {" & _cdckxz & "} where 身份证号码 =\'" & Tables("基本信息").current("身份证号码") & "\'"

\'msgbox(strSQL)

tblUser.Fill(strSQL,"rsgl",False)

MessageBox.show(_cdckxz)

MessageBox.show(tbluser.Rows.count)

If _cdckxz = "年度考核" Then

If tbluser.Rows.Count > 0 Then

e.Form.controls("Button1").Visible = False

Else

e.Form.controls("Button1").Visible = True

e.Form.Controls("Button1").Left = 592

e.Form.Controls("Button1").Top = 11

End If

e.Form.controls("Button3").Visible = False

If Tables("基本信息").Current.Isnull("参加工作时间") = False Then

Dim y As Integer = Tables("基本信息").Current("参加工作时间").year

If y > 1993 Then

For i As Integer = 1993 To y -1

tbluser.Cols.Remove("年度" & i)

End If

tblUser.ExtendLastCol = True

tbluser.Cols.Remove("姓名") \'移除编辑者列,避免用户直接修改此列

tbluser.Cols.Remove("身份证号码") \'移除编辑者列,避免用户直接修改此列

tblUser.AllowEdit=True

Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")

rgd.Table = Tables("附属信息_Table1") \'指定绑定表

rgd.Build() \'

Dim g = e.Form.Controls("RecordGrid1").Basecontrol

g.AutoSizeRows

g.styles.EmptyArea.BackColor = color.fromargb(231, 237, 243) \'记录窗口空余地颜色背景

Tables("附属信息_Table1") .DataTable.SysStyles("EmptyArea").BackColor = Color.fromargb(231, 237, 243)

Vars("blnOpened")=True

Dim sp3 As WinForm.SplitContainer = e.Form.Controls("SplitContainer3")

Dim aa As WinForm.SplitPanel = sp3.Panel2

aa.basecontrol.backcolor= color.fromargb(231, 237, 243)