用友852导入生产订单，提示错误，不能导入，求高手指点

'<BINARY>','3','00000'+'0003','2009-12-12','DEMO','2009-12-12','DEMO','18','','100001','','1','2','我们','1')
这行数据改一下就好了

OPCserver端是否设置了账户限制，你们用的是管理员用户的话应该没问题！如果是新加的账户，需要将OPCserver的访问权限修改一下！ dcom配置确定配置好了吗，拒绝访问的原因应该就是dcom不通，2000系统和XP系统之间dcom通讯肯定是没问题，我调过2003和XP通讯的，不知道dcom配置的时候2000是否有特殊要求，你还是检查下自己的dcom配置吧，everyone，interactive，network，system都要加进去，访问类型一定要是经典-本地用户，不要选仅来宾，OPCserver端也要进行同样的设置！

大哥，瘦客户机指的是硬件结构好不好。
你说的这种叫做b/s结构的程序，也就是浏览器/服务器结构的程序，在简单一点就是网站。
你以前做的那种叫做c/s结构的程序，也就是客户端/服务器结构的程序。
delphi如果要作b/s结构的程序似乎很难。b/s结构一般都用jsp、asp、aspnet、php等来作。
欢迎访问我的论坛：）
>代码如下：private void button1_Click(object sender, EventArgs e)
{
if (panel1Visible == false)
{
update();
}
else
{
if (textBox1TextTrim() != loginpwd)
{
MessageBoxShow("原密码错误,请重新输入"," *** 作提示",MessageBoxButtonsOK,MessageBoxIconInformation);
textBox1Focus();
}
else if (textBox2TextTrim() == "")
{
MessageBoxShow("请输入新密码", " *** 作提示", MessageBoxButtonsOK, MessageBoxIconInformation);
textBox2Focus();
}
else if (textBox4TextTrim() == "")
{
MessageBoxShow("请确认新密码", " *** 作提示", MessageBoxButtonsOK, MessageBoxIconInformation);
textBox4Focus();
}
else
{
if (textBox2TextTrim() != textBox4TextTrim())
{
MessageBoxShow("确认新密码不一致，请重新输入", " *** 作提示", MessageBoxButtonsOK, MessageBoxIconInformation);
textBox4Focus();
}
}
if(radioButton1Checked==true)
{
friendshipPolicyId=1;
}
if(radioButton2Checked==true)
{
friendshipPolicyId = 2;
}
if(radioButton3Checked==true)
{
friendshipPolicyId = 3;
}
string sql = stringFormat("update users set loginpwd='{0}',FriendshipPolicyId={1} where id={2}", textBox4TextTrim(), friendshipPolicyId,UserHelploginId);
int a = DBHelperExecuteUpdate(sql);
if (a < 0)
{
MessageBoxShow("服务器繁忙，修改失败！", "结果提示", MessageBoxButtonsOK, MessageBoxIconInformation);
}
}
thisClose();
} private void update()
{
string sql2 = stringFormat("update users set nickName='{0}',faceId={1},sex='{2}',Age={3},username='{4}',starId={5},BloodTypeId={6},signature='{7}' where id={8}", txtNickNameText, UserHelpfaceId, cboSexText, cboAgeText, txtNameText, cboStarSelectedIndex, cboBloodSelectedIndex,textBox3Text, UserHelploginId);
int a = DBHelperExecuteUpdate(sql2);
if (a < 0)
{
MessageBoxShow("服务器繁忙，修改失败！", "结果提示", MessageBoxButtonsOK, MessageBoxIconInformation);
}
}

vua～大学时期是有一个自我提升和高效学习非常好的时间，那在大学里面，我们有哪些网站可以帮助我们更好的学习呢？

1、中国国家数字图书馆

是一个线上的图书馆，内容有图书，期刊，报纸，古籍等电子书籍，足不出户也能看书，我们再也不用担心图书馆借书还忘记还还借不到了。

2、中国大学生慕课

中国大学慕课是一个特别大学生的网站，里面的知识涵盖面特别广，里面有文史考研哲学考证，而且最重要都是知名高校的老师授课。

3、考试酷

一个专为学生，老师和考证党提供的系统测试网站，可以用来考证学习培训以及知识竞赛，里面有各科考试考证，有了它，再也不用报班考证，再也不用担心专业考试挂科啦！

4、IDATA

这是由北京大学，清华大学，浙江大学，复旦大学等师生和学者共同创建的用于教学科研目的的公益互联网项目,促进知识的传播和学术科技的共享，和知网差不多，然后里面还有很多的论文素材，对毕业论文的参考有还有很高的价值。

5、Magazinelib

可以下载整本的免费英语外刊内容有《经济学人》，《自然》，《大西洋月刊》超多知名杂志偷偷告诉大家，大家可以参考四六级文章，你会发现新大陆。Welcome虽然只能积累英语素养，但是考试的时候还是要用巨微英语认真刷题。

6、中国国家数字科技馆

这是一个百科网站，里面有各科各类的知识科技热点环球科学，科普服务等我愿称之为全能小百科。想要的知识，这里面他差不多都有。

7、创可贴设计

这是一个在线设计平台，他有网页版的APP和小程序，设计PPT，视频海报封面，还包括各类的素材，模板，字体特别多的内容，是学自媒体或者是媒体，这行业的人是必备的，尤其是我们大学生做PPT活动策划都可以用上简直就是神仙网站。

以上上只是部分网站，还有国家为我们提供了很多学习的机会和网站，大家可以去寻找。

用Excel去取SAP中的数据
Dim iqtable As Object
Dim ifields As Object
Dim idata As Object
Dim itabname As String
Dim ifldname As String
' Macro1 Macro
' Macro recorded 9/7/2005 by StoneF
Set oFunction = CreateObject("SAPLogonControl1")
Set oConnection = oFunctionNewConnection
oConnectionClient = "200"
oConnectionLanguage = "EN"
oConnectionUser = "Xenos"
oConnectionPassword = "fhqitxgt"
oConnectionApplicationServer = "1722102"
oConnectionSystemNumber = "00"
result = oConnectionLogon(0, True)
Set ofun = CreateObject("SAPFUNCTIONS")
Set ofunConnection = oConnection
Set func = ofunAdd("RFC_READ_TABLE") 'call RFC_READ_TABLE
funcExports("QUERY_TABLE") = "MARA"
Set ioptions = functablesItem("OPTIONS")
Set ifields = functablesItem("FIELDS")
Set idata = functablesItem("DATA")
'here only add 3 fields
ifieldsRowsAdd
ifieldsValue(1, "FIELDNAME") = "MATNR"
ifieldsRowsAdd
ifieldsValue(2, "FIELDNAME") = "MTART"
ifieldsRowsAdd
ifieldsValue(3, "FIELDNAME") = "MATKL"
'icall = funcRFC_READ_TABLE(QUERY_TABLE:="MARA", FIELDS:= ifields, DATA:=idata,OPTIONS = ioptions)
icall = funcCall
If icall = True Then 'icall=true
ThisWorkbookSheets(1)Cells(1, 1) = "料号"
ThisWorkbookSheets(1)Cells(1, 2) = "类型"
ThisWorkbookSheets(1)Cells(1, 3) = "未知"

For i = 2 To idataRowsCount
ILine = idataValue(i, "WA")
imatno = Mid(ILine, 1, 18)
imtype = Mid(ILine, 19, 4)
imgrp = Mid(ILine, 23, 9)
ThisWorkbookSheets(1)Cells(i, 1)NumberFormatLocal = "@"
ThisWorkbookSheets(1)Cells(i, 1) = Right(imatno, 12)
ThisWorkbookSheets(1)Cells(i, 2) = imtype
ThisWorkbookSheets(1)Cells(i, 3) = imgrp
Next i
MsgBox "Read table MARA OK!"
Else
MsgBox "OPEN FAILed,Fuckying your damning SAP!"
End If
不知道能否帮到你。。。。 。。

首先告诉你，你的那段代码是 WinForm 编程的代码。在 Web 应用中，服务器端代码是不可能获得客户端的剪贴板内容。只可能获取服务器上剪贴板内容。

要获取客户端的剪贴板，只能利用脚本实现，下面是 JS 参考代码：

// 设置剪贴板内容

var content = "要复制到剪贴板的内容";

clipboardDatasetData("Text", content); // content 为要复制的内容

// 获取剪贴板内容

var content = clipboardDatagetData("Text");

提示：若要把剪贴板内容发到服务器上，必须利用脚本对表单控件进行赋值，如：

// hdnClipboard 为 HiddenField 隐藏域控件（也可以使用文本框或其它控件代替）。

documentform1hdnClipboardvalue = clipboardDatagetData("Text");

要使用 Clipboard 对象，导入 SystemWindowsForms 就可以了

注意：Web 程序直接导入 SystemWindowsForms 命名空间是不能用的，还必须添加对象 SystemWindowsFormsdll 类库的引用。在菜单“网站”→“添加引用”→添加类库的引用。

---