Vb6 运行程序时出现编译器错误 Private子表单_Activate（） 将st1设置为字符串 '如果txtmode 1从数据库获取id的记录 如果txtmode.Text=“1”，则 'SQL语句 openCon st1=“选择客户名称、地址1、地址2、城市、来自客户的联系人，其中id=“&txtid.Text 记录。打开st1，conn，adOpenDynamic，ADLOCK 先移动 如果recSet.Fields（“Customer_name”）.值为vbNullString，则 txtCustomer\u name=recSet.Fields（“客户名称”）.Value 其他的 txtCustomer_name=“” 如果结束

当我运行我的程序时，我得到一个错误：

编译器错误：txtCustomer\u name=行上的属性使用无效

为什么?？我该如何解决呢？

您可以尝试以下方法：

Private Sub Form_Activate()
Dim st1 As String

'if txtmode 1 fetch record of id from database
If txtmode.Text = "1" Then
    'SQL statement
    openCon
    st1 = "SELECT Customer_name, Address1, Address2, City, Contact  FROM customer WHERE id=" & txtid.Text
    recSet.Open st1, conn, adOpenDynamic, adLockOptimistic
    recSet.MoveFirst

    If recSet.Fields("Customer_name").Value <> vbNullString Then
    txtCustomer_name = recSet.Fields("Customer_name").Value

   Else
        txtCustomer_name = ""
    End If

---

如果txtCustomer_name是一个控件，请尝试txtCustomer_name.Text=…同意jac。我们需要知道txtCustomer_name是如何定义的。

If IsNull(recSet.Fields("Customer_name").Value) Then
    txtCustomer_name.Text = ""
Else
    txtCustomer_name.Text = recSet.Fields("Customer_name").Value
End If