共4 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]查找datatables中的数据

1楼

bohe 发表于：2010/11/24 14:17:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成绩分析表2.table

        With DataTables("考试")
            dr_xn = .Find("学年 ='" & xn & "'") '检查相同学年
            dr_xq = .Find( "学期 ='" & xq.value & "'") '检查相同学期
            dr_ksmc = .Find("考试名称 ='" & ksmc.value & "'") '检查相同考试名称
        End With
        If dr_ksmc Is Nothing Then

..............

为什么刚开始加考试表时找不到datatables("考试")中的考试名称等

代码作用是：发现输入考试信息与表中想同就提示已经存在，如果不同就生成新的考试信息

2楼

blackzhu 发表于：2010/11/24 15:06:00

Dim xn2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim xq As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim ksmc As WinForm.TextBox = e.Form.Controls("TextBoxKSMC")
If xn2.value<>"" And xq.value<>"" And ksmc.value<>"" Then
    Dim Result As DialogResult
    result=MessageBox.Show("考试信息正确吗?","提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Dim xn As String
        Dim dr_xn,dr_xq,dr_ksmc As DataRow
        xn=e.Form.Controls("ComboBox1").Value & "-" & xn2.Value &"学年"
        With DataTables("考试")
            dr_xn = .Find("学年 ='" & xn & "'") '检查相同学年
            dr_xq = .Find( "学期 ='" & xq.value & "'") '检查相同学期
            dr_ksmc = .Find("考试名称 ='" & ksmc.value & "'")
        End With
        If dr_ksmc Is Nothing Then
           MessageBox.Show("sdfas")

           Dim f As New Filler
            f.SourceTable = DataTables("信息") '指定数据来源
            f.SourceCols = "id" '指定数据来源列
            f.DataTable = DataTables("考试") '指定数据接收表 'f.ExcludeExistValue=True 'f.DataCols = "产品,客户" '指定数据接收列
            f.Fill() '填充数
            For Each r As Row In Tables("考试").Rows
                r("学年")= xn
                r("学期")= xq.value
                r("考试名称") = ksmc.value
            Next
        Else
            MessageBox.Show("本次考试信息已经存在!")
            e.Cancel=True
        End If
    End If
Else
    MessageBox.Show("考试信息不能为空!")
End If

你的代码我测试可以用呀.我加个了取消按钮

MessageBox.Show("本次考试信息已经存在!")
e.Cancel=True

3楼

blackzhu 发表于：2010/11/24 15:08:00

有一样的信息就提示已经存在,取消动作,如果没有的,就会加载新的开始信息,测试非常好呀.

4楼

bohe 发表于：2010/11/24 15:53:00

用find方法没有成功，考虑到以后要用外部数据源把中间部分改了一下，测试通过

        Dim xn,dr_ksmc As String
        xn=e.Form.Controls("ComboBox1").Value & "-" & xn2.Value &"学年"
        Dim cmd As New SQLCommand
        cmd.CommandText = "Select 考试名称 From {考试} Where 学年 = '" & xn & "'" & "And 学期 = '" & xq.value & "'" & "And 考试名称 = '" & ksmc.value & "'"
        dr_ksmc = cmd.ExecuteScalar()
        If dr_ksmc = "" Then
            Dim f As New Filler

共4 条记录, 每页显示 10 条, 页签: [1]