第1个回答 2011-03-08
Private RecSet1 As New Recordset
Dim sSql As String
sSql = " SELECT* FROM Table WHERE MainID='" & MainID & "'" & _
" UNION " & _
" SELECT MainID, Name, VipID, Sex, Birth, MPhone, Phone, Addr, BDate, CardID, BCoID, BPosID, UmType, UmDiscount, UpdateTime,State, CASE WHEN State=0 THEN '未提交' ELSE '已提交' END AS StateName FROM UserInfo WHERE MainId NOT IN(SELECT MainID FROM UserInfo2 WHERE MainID='" & MainID & "') AND MainID='" & MainID & "'"
If RecSet1.State = adStateOpen Then RecSet1.Close
RecSet1.Open sSql, adoconn
If Not (RecSet1.BOF) And Not (RecSet1.EOF) Then
Me.txtCusId.text = MainID
Me.txtCusName.text = Trim(RecSet1!Name) '会员姓名
Me.TxtDel.text = Trim(RecSet1!UmDiscount) '折扣
Else
Me.txtCusId.text = ""
Me.txtCusName.text = ""
Me.TxtDel.text = "1"
End If本回答被提问者采纳