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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求高手帮忙纠错

共有3867人关注过本帖树形打印复制链接主题：求高手帮忙纠错

有点蓝

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2015/8/9 20:38:00 [只看该作者]

Dim dr As DataRow
dr = DataTables("图14第三张表").Find("分类 = '" & e.DataRow("分类") & "'")

if dr innot nothing then

Dim dr1 datarow

dr1 = datatables("学员一览表").Find("姓名 = '" & dr("学员姓名") & "' and 课程 = '" & dr("授课内容") & "'")

end if

bestorange

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00

Post By：2015/8/9 20:41:00 [只看该作者]

If e.DataCol.Name = "学员姓名" Then
    If e.NewValue Is Nothing Then
        e.DataRow("授课内容") = Nothing
    Else
        Dim dr3 As DataRow
        dr3 = DataTables("学员一览表").Find("姓名 = '" & e.DataRow("学员姓名") & "'")
        If dr3 IsNot Nothing Then
            If e.DataRow("分类") = "主课" Then
                e.DataRow("授课内容") = dr3("课程")
            ElseIf e.DataRow("分类") = "陪练" Then
                e.DataRow("授课内容") = dr3("陪练等级")
            ElseIf e.DataRow("分类") = "附加" Then
                e.DataRow("授课内容") = dr3("乐理程度")
            ElseIf e.DataRow("分类") = "听力" Then
                e.DataRow("授课内容") = dr3("听力程度")
            End If
        End If
    End If
End If

If e.DataCol.Name = "授课内容" OrElse e.DataCol.Name = "分类" Then
    If e.NewValue Is Nothing Then
        e.DataRow("培训科目") = Nothing
    Else
        Dim dr1 As DataRow
        dr1 = DataTables("课类分类表").Find("科目 = '" & e.DataRow("授课内容") & "'")
        If dr1 IsNot Nothing Then
            e.DataRow("培训科目") = dr1("培训科目")
            e.DataRow("签到时间") = Date.Today
            e.DataRow("签到次数") = 1
        End If
    End If
End If

bestorange

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00

Post By：2015/8/9 20:45:00 [只看该作者]

可能我之前命令拼错了或者文字打错了吧，

那么我现在窗口控件命令

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "'")

是否也可以再加上一个筛选条件分类了？？也就是ComboBox3