请问扩展数据,新手求助
<P>Private Sub ShowXData()<BR>Dim dataType As Variant<BR>Dim data As Variant</P><P>objCurrent.GetXData "XData", dataType, data</P>
<P>Dim i As Integer<BR>For i = LBound(dataType) To UBound(dataType)<BR>Select Case dataType(i)<BR> Case 1001<BR> txtAppName.Text = data(i)<BR> Case 1000<BR> txtString.Text = data(i)<BR> End Select<BR> Next i<BR> <BR> <BR> <BR> <BR>End Sub</P>
<P>Private Sub CommandButton1_Click()<BR>Dim txt As Control<BR>For Each txt In frmMain.Controls<BR>If TypeOf txt Is TextBox Then<BR>If txt.Text = "" Then<BR>MsgBox "文本不能为空", vbCritical<BR>Exit Sub<BR>End If<BR>End If<BR>Next txt</P>
<P>Call SetEntXData<BR>End<BR>End Sub</P>
<P>Private Sub SetEntXData()</P>
<P>Dim dataType(0 To 1) As Integer<BR>Dim data(0 To 1) As Variant<BR>dataType(0) = 1001<BR>data(0) = "XData"<BR>dataType(1) = 1000<BR>data(1) = txtString.Text</P>
<P><BR>objCurrent.SetXData dataType, data<BR>End Sub</P>
<P>每次运行都出现对象变量或with块变量未设置这个错误。</P>
<P>都是下面这行出错误。部知道什么原因。<BR>objCurrent.SetXData dataType, data</P>
<P>我在公共模块申明了</P>
<P>Public addMode As Boolean<BR>Public objCurrent As AcadEntity</P>
<P>请帮我找一下问题，谢谢大家了。</P> <p>不清楚呢</p> .net中用 object 而不是Variant<br/>但提示dataType, data在赋值前被引用，可能导致空前异常 你只定义了objCurrent这个对象变量，但该对象却为空，当然要出错啦
页:
[1]