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

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

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/9 20:07:00 [显示全部帖子]

If e.DataCol.Name = "学员姓名" OrElse e.DataCol.Name = "分类" Then
    If e.NewValue Is Nothing Then
        e.DataRow("授课内容") = Nothing
    Else
        Dim dr3 As DataRow
        dr3 = DataTables("学员一览表").Find("姓名 = '" & e.DataRow("学员姓名") & "' and 分类 = '" & e.DataRow("分类") & "'")
        If dr3 IsNot Nothing Then
            e.DataRow("授课内容") = dr3("课程")

        End If
    End If
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/9 20:07:00 [显示全部帖子]

都是最基础的知识啊。去看视频教程和帮助文档。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/9 20:31:00 [显示全部帖子]

汗。

直接判断分类的值，去取值啊。

If e.Datarow("分类") = "主课" Then

ElseIf e.Datarow("分类") = "陪练" Then

End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/9 20:35:00 [显示全部帖子]

If e.DataCol.Name = "学员姓名" OrElse 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

            ElseIf e.DataRow("分类") = "陪练" Then

            End If

        End If
    End If
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/10 9:43:00 [显示全部帖子]

Dim fl As String = e.Form.Controls("分类").Text
Dim cmb As WinForm.ComboBox= e.Form.Controls("ComboBox学员姓名")
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
If fl = "主课" Then
    cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "' and 课程 is not null")
ElseIf fl = "陪练" Then
    cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "' and 陪练等级 is not null")
ElseIf fl = "附加" Then
    cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "' and 乐理程度 is not null")
ElseIf fl = "听力" Then
    cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "' and 听力程度 is not null")
End If

下一主题 >> << 上一主题

主题：求高手帮忙纠错