16,555
社区成员
发帖
与我相关
我的任务
分享
'质量状况
Dim dvBiaoJi As New DataView
g_strSQL = "SELECT DaiMa,MingCheng,PinYinM FROM dbo.Code_ZhiLiangZK WHERE TingYongBZ='否'"
If InitData(g_strSQL, dvBiaoJi) = False Then
MsgBox("加载质量状况列表错误!" & vbCrLf & _
"请联系管理员!", MsgBoxStyle.Critical, "提示")
Exit Sub
Else
dgvComBoxColumn质量.DataSource = dvBiaoJi
dgvComBoxColumn质量.DisplayMember = "MingCheng"
dgvComBoxColumn质量.ValueMember = "DaiMa"
End If