求助大侠 下面的代码在SQL里哪些要改 谢谢
'--------以下是定义部门栏-----------------------
Dim fll As WinForm.TopicBar = Forms("主窗体").Controls("分类栏")
Dim bm As WinForm.TopicPage = fll.Pages("部门")
bm.Links.Clear
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别 = '部门'","_identify").Split("|")
Dim kg As String = new String(" ",24 - bmmc.Length*2) '定义前面的对齐空格
Dim rs As String = DataTables("员工资料").Compute("count(_identify)","部门 = '" & bmmc & "'") '定义统计的数量
Dim kg2 As String = new String(" ",3-rs.Length)
bm.Links.Add(bmmc,bmmc & kg & "(" & kg2 & rs & "人)")
Next
'-------以上是定义部门栏-------------------------
'--------以下是定义用工性质栏-----------------------
Dim yg As WinForm.TopicPage = fll.Pages("用工性质")
yg.Links.Clear
For Each ygxz As String In DataTables("词典").GetComboListString("名称","类别 = '用工性质'","_identify").Split("|")
Dim kg As String = new String(" ",24 - ygxz.Length*2) '定义前面的对齐空格
Dim rs As String = DataTables("员工资料").Compute("count(_identify)","用工性质 = '" & ygxz & "'") '定义统计的数量 只能用string 不能用 Integer,因为整数型不能统计长度
Dim kg2 As String = new String(" ",3- rs.Length) '定义人数括号数字间的空格
yg.Links.Add(ygxz,ygxz & kg & "(" & kg2 & rs & "人)") '合成标题
Next
'-------以上是定义用工性质栏-------------------------
Dim ks As WinForm.TopicPage = fll.Pages("科室")
ks.Links.Clear
For Each ksks As String In DataTables("词典").GetComboListString("名称","类别 = '科室'","_identify").Split("|")
Dim kg As String = new String(" ",24 - ksks.Length*2) '定义前面的对齐空格
Dim rs As String = DataTables("员工资料").Compute("count(_identify)","科室 = '" & ksks & "'") '定义统计的数量
Dim kg2 As String = new String(" ",3-rs.Length)
ks.Links.Add(ksks,ksks & kg & "(" & kg2 & rs & "人)")
Next
'-------以上是定义工种-------------------------
Dim xb As WinForm.TopicPage = fll.Pages("性别")
xb.Links.Clear
For Each xbxb As String In DataTables("词典").GetComboListString("名称","类别 = '性别'","_identify").Split("|")
Dim kg As String = new String(" ",24 - xbxb.Length*2) '定义前面的对齐空格
Dim rs As String = DataTables("员工资料").Compute("count(_identify)","性别 = '" & xbxb & "'") '定义统计的数量
Dim kg2 As String = new String(" ",3-rs.Length)
xb.Links.Add(xbxb,xbxb & kg & "(" & kg2 & rs & "人)")
Next
'-------以上是定义工种-------------------------
加好友 
发短信
Post By：2015/5/7 8:43:00 [显示全部帖子]
