主题：甜版，表达式问题求教！！！！！

另图中正文的那几个按钮是否可以作为页面1和2公用？

 

此主题相关图片如下：4gj4@vb_j)`t2guca6kdv{7.png

Bin版在吗？我的问题能解决吗？

 

判断当前的页面是什么啊

 

msgbox(e.Form.Controls("TabControl1").SelectedPage.Text)

Dim gzdw As WinForm.ComboBox = e.Form.Controls("工作单位")
Dim jdpc As WinForm.ComboBox = e.Form.Controls("鉴定批次")
Dim sfhg As WinForm.ComboBox = e.Form.Controls("是否合格")
gzdw.ComboList = DataTables("报名登记表").GetComboListString("工作单位")
jdpc.ComboList = DataTables("报名登记表").GetComboListString("鉴定批次")
sfhg.ComboList = DataTables("报名登记表").GetComboListString("是否合格")
gzdw.ComboList = DataTables("审核合格表").GetComboListString("工作单位")
jdpc.ComboList = DataTables("审核合格表").GetComboListString("鉴定批次")
sfhg.ComboList = DataTables("审核合格表").GetComboListString("是否合格")

Tables("报名登记表").Filter = ""
Tables("审核合格表").Filter = ""

 

这是1个窗口的afterload事件代码，窗口中有1个页面集合控件，其页面1有“报名登记表”、页面2有“审查合格表”；还有1个GroupBox控件，里面有几个ComboBox、TextBox控件放查询条件和1个查询按钮控件，目标是实现在页面1里，点按钮，页面1的表显示查询结果，页面2的表不动，反之页面2显示，页面1不动；

查询按钮click事件代码如下：

Dim gzdw As WinForm.ComboBox = e.Form.Controls("工作单位")
Dim xgs As WinForm.ComboBox = e.Form.Controls("县公司")
Dim jdpc As WinForm.ComboBox = e.Form.Controls("鉴定批次")
Dim sfhg As WinForm.ComboBox = e.Form.Controls("是否合格")
Dim xm As WinForm.TextBox = e.Form.Controls("姓名")
Dim sfzhm As WinForm.TextBox = e.Form.Controls("身份证号码")
Dim yzgzsbh As WinForm.TextBox = e.Form.Controls("原资格证书编号")
Dim filter As String = "1=1"
If gzdw.Text > "" Then
    filter &= " and 工作单位 = '" & gzdw.Text & "'"
End If
If xgs.Text > "" Then
    filter &= " and 县公司 = '" & xgs.Text & "' "
End If
If jdpc.Text > "" Then
    filter &= " and  鉴定批次 like '*" & jdpc.Text & "*'"
End If
If xm.Text > "" Then
    filter &= " and  姓名 like '*" & xm.Text & "*' "
End If
If sfzhm.Text > "" Then
    filter &= " and  身份证号码 like '*" & sfzhm.Text & "*'"
End If
If yzgzsbh.Text > "" Then
    filter &= " and  原资格证书编号 like '*" & yzgzsbh.Text & "*'"
End If
If sfhg.Text > "" Then
    filter &= " and  是否合格 like '*" & sfhg.Text & "*'"
End If

Tables("报名登记表").Filter = filter
Tables("审核合格表").Filter = filter

 

现在点查询按钮，页面1和2都同时动，上述代码语法上有什么问题？请指教！

 看84楼啊

从一列中“2009年07月中级工”这样的字符串中提取09、07这样的字符到另一列，我在列表达式中用SubString([列名],1,4)可以提取到2009，但想提09、07该怎么写表达式？

我试了很多组合，只要是1在前，就不报错，如1，2取得20、1，3取得200，1、4取得2009，是不是这样写SubString([列名],1,4)－2000？

好象不行！

是不是列类型上有什么要求，我将被提取的列设为字符型，赋值的列为长整数