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)
Next
End If
End If
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)
加好友 
发短信
Post By：2016/3/14 9:22:00 [只看该作者]
此主题相关图片如下：qq图片20160314132500.png