求教 怎么解决汉字乱码问题？

zrj898

怎么解决sql视图的文本粘贴到vba中汉字变成了"?"号，从vba立即窗口中复制的SQL语句粘贴到别的编辑器汉字乱码显示。

Henry D. Sy

请更改你的问题标题

轻风

我没有这种情况呀。要不试试先提制到记事本，再从记事本复制过去。

zrj898

呵呵，我用win7 access 2007 sql视图中的语句要复制到Uedit中才能复制到vba中（复制到记事本不行） 而vba中的的立即窗口中的语句怎么拷贝都复制不出来，都是指汉字乱码！
请看：
            Sql = "select " & Str01 & " as ÏîÄ¿ID ," & Str02 & " as Êý¾Ý±íÃû ," & Str03 & " as ±í¸üÐÂʱ¼ä ,a.Status as Èë¿â±ê¼Ç ,"
            Sql = Sql & "b.Code as ±àÂë, b.PointID as µãºÅ, 0 as WGS84_L ,0 as WGS84_B ,0 as WGS84_H ,"
            Sql = Sql & "b.Northing as ±±×ø±ê, b.Easting as ¶«×ø±ê, b.Ell_H as ´óµØ¸ß, b.Elevation as ¸ß³Ì, "
            Sql = Sql & "b.Plot_Info as »æͼÐÅÏ¢, b.Refrence as ²Î¿¼Õ¾, b.Horizontal_Accuracy as ˮƽ¾«¶È, b.Vertical_Accuracy as ´¹Ö±¾«¶È, "
            Sql = Sql & "b.Antenna_Height as ÌìÏ߸ß, b.PDOP, b.GDOP, b.HDOP, b.VDOP, b.Solution as ½âÀàÐÍ, b.Satellite_Num as ÎÀÐÇÊý, b.RMS, b.CQ, "
            Sql = Sql & "b.OBS_Time as ¹Û²âʱ¼ä, b.Survey_Type as ²âÁ¿ÐÎʽ, b.RefToRov_Dis as ²Î_Á÷¾àÀë, b.Survey_Mode as ²âÁ¿Ä£Ê½, b.Epochs as ÀúÔª, "
            Sql = Sql & "b.Receiver_Type as ÒÇÆ÷ÐͺÅ, b.Receiver_SN as ÒÇÆ÷ÐòºÅ, b.Operator as ²Ù×÷Ô±, b.Data_File as Ô´Îļþ, b.Line_Name as ÏߺŠ"
            Sql = Sql & "from " & StrOb02 & ".FileList as a ," & StrOb02 & ".[" & Str04 & "] as b "
            Sql = Sql & "where a.File_Name=" & Str02
            Sql = "insert into RTKԭʼÊý¾Ý " & Sql
你们那看见是乱码吗？

zrj898

还有我这用“ _”写分行语句时，简单的语句可以通过，而复杂点就老是出错。

aslxt

估计是特殊的系统环境导致的。我也没有经历过！